home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok85 / streams / streamtest.mod < prev    next >
Text File  |  1993-11-04  |  1KB  |  67 lines
  1. MODULE StreamTest;
  2.  
  3. IMPORT
  4.   d := Dos,
  5.   T := TextStreams,
  6.   F := FileStreams;
  7.  
  8. VAR
  9.   t : T.TextStream;
  10.   f : F.FileStream;
  11.  
  12.   str: ARRAY 256 OF CHAR;
  13.   l : LONGINT;
  14.  
  15. BEGIN
  16.   t := T.Create(0,11,640,100);
  17.   f := F.Create();
  18.  
  19.   IF ~t.Open("StreamTest", TRUE) THEN HALT(99) END;
  20.  
  21.   IF ~f.Open("ram:StreamTest", TRUE) THEN
  22.       t.WriteString("Konnte File nicht oeffnen!\n");
  23.       HALT(99)
  24.   END;
  25.  
  26.   t.WriteString("\nString eingeben: ");
  27.   t.ReadString(str);
  28.   f.WriteString(str);
  29.  
  30.   REPEAT t.WriteString("\nLongint eingeben: ") UNTIL t.ReadLongInt(l);
  31.   f.WriteLongInt(l,9);
  32.  
  33.   IF ~f.Close() THEN
  34.       t.WriteString("\nKonnte File nicht schliessen\n");
  35.       HALT(99)
  36.   END;
  37.  
  38.   t.WriteString("File wurde geschlossen!\n");
  39.  
  40.   IF ~f.Open("ram:StreamTest", FALSE) THEN
  41.       t.WriteString("Konnte File nicht oeffnen!\n");
  42.       HALT(99)
  43.   END;
  44.  
  45.   t.WriteString("\nFolgenden String hast Du eingegeben: ");
  46.   f.ReadString(str);
  47.   t.WriteString(str);
  48.  
  49.   t.WriteString("\nFolgenden LongInt-Zahl hast Du eingegeben: ");
  50.   IF f.ReadLongInt(l) THEN END;
  51.   t.WriteLongInt(l, 9);
  52.  
  53.   t.WriteLn;
  54.  
  55.   IF ~f.Close() THEN
  56.       t.WriteString("\nKonnte File nicht schliessen\n");
  57.       HALT(99)
  58.   END;
  59.  
  60.   d.Delay(100);
  61.  
  62.   IF ~t.Close() THEN
  63.       HALT(99)
  64.   END;
  65.  
  66. END StreamTest.
  67.